1 REM * MAZE CHASE @1988 BY J.MATTSON *
10 IFA=.THENA=1:POKE53281,0:PRINT"[147]":GOSUB61000:LOAD"F.MAZE",8,1
20 IFA=1THENA=2:LOAD"M.MAZE",8,1
30 POKE52,56:POKE56,56:CLR:SU=51262:LN=51174:LD=51319:BG=49152:TS=51481:NM=7
40 I=RND(-TI):GOSUB460:SYSSU:M(1)=INT(RND(1)*NM+1):FORI=2TO3
50 M(I)=INT(RND(1)*NM+1):K=.:FORJ=1TOI-1:IFM(I)=M(J)THENK=1
60 NEXT:IFK>.THEN50
70 NEXT:FORI=1TO3:POKELN,M(I)+48:SYSLD:NEXT:GOSUB120:SYSBG
80 PRINT"[147][150]PLAY AGAIN? [[159]Y[150]/[159]N[150]]"
90 GETA$:IFA$="Y"THEN40
100 IFA$<>"N"THEN90
110 GOTO620
120 PRINT"[147] [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]    [176][192][192]";
130 PRINT"`````````````[174]  }        ";
140 PRINT"       }[152]~[146]  }[154][146]}            ";
150 PRINT"   }  }               }[152] [151]:";
160 PRINT":[152] [154][146]}               }  }   ";
170 PRINT"            }[152] [151]  [152] [154][146]}       ";
180 PRINT"        }  }             ";
190 PRINT"  }[152] [151]  [152] [154][146]}               } ";
200 PRINT" }               }[152] [151]::[152] [154][146]}  ";
210 PRINT"             }  }        ";
220 PRINT"       }[152] [151]  [152] [154][146]}            ";
230 PRINT"   }  }               }[152] [151] ";
240 PRINT" [152] [154][146]}               }  }   ";
250 PRINT"            }[152] [151]::[152] [154][146]}       ";
260 PRINT"        }  }             ";
270 PRINT"  }[152] [151]  [152] [154][146]}               } ";
280 PRINT" }               }[152] [151]  [152] [154][146]}  ";
290 PRINT"             }  }        ";
300 PRINT"       }[152] [151]::[152] [154][146]}            ";
310 PRINT"   }  }               }[152] [151] ";
320 PRINT" [152] [154][146]}               }  }   ";
330 PRINT"            }[152] [151]  [152] [154][146]}       ";
340 PRINT"        }  }             ";
350 PRINT"  }[152] [151]::[152] [154][146]}               } ";
360 PRINT" }               }[152] [151]  [152] [154][146]}  ";
370 PRINT"             }  [173]````````";
380 PRINT"```````[189][152] [151]  [152] [154][146][173]````````````";
390 PRINT"```[189]   [152]                [151]:";
400 PRINT":[152]                [146][169]     [151] [154]S";
410 PRINT"CORE [146][155]     [151]          [154]SCORE";
420 PRINT" [146][155]     [151] [146]       [154]WOUND [171][158][171][171][171][171]";
430 PRINT"[151] [146]  [154]  [159]  [153]  [151] [154]WOUND [171][158][171][171][171][171][151] [146]   ";
440 PRINT"    [154]KEYS  [146][158]     [151]          ";
450 PRINT"[154]KEYS  [146][158]     [151] [146]      [223]                                [146][169]";:RETURN
460 POKE53280,.:POKE53281,.:POKE53272,30
470 PRINT"[147]"TAB(10)"[159]             "
480 PRINTTAB(9)"[144] [159] [146][223] [146][169] [144] [159] [144] [159] [144]   [159] [144] [159] [144] "
490 PRINTTAB(9)" [159] [144]  [159] [144] [159]    [144] [159]  "
500 PRINTTAB(9)"[144] [159] [144] [159] [144] [159] [144] [159]  [144] [159] "
510 PRINTTAB(9)"[144] [159] [144] [159] [144] [159] [144] [159] [144] [159]   [144] [159]   "
520 PRINTTAB(9)"[144]          "
530 PRINTTAB(8)"[159]               "
540 PRINTTAB(7)"[144] [159] [144]   [159] [144] [159] [144] [159] [144] [159] [144] [159] [144]  [159] [144] "
550 PRINTTAB(7)" [159] [144] [159]   [144] [159]   [144] [159]   [144] [159]  "
560 PRINTTAB(7)"[144] [159] [144] [159] [144] [159] [144] [159] [144] [159] [144]   [159] [144] [159] "
570 PRINTTAB(7)"[144] [159]    [144] [159] [144] [159] [144] [159] [144] [159]    [144] [159]   "
580 PRINTTAB(7)"[144]              "
590 PRINTTAB(11)"[156]BY [156]J.MATTSON [156]@ [156]'88"
600 PRINTTAB(11)"[150]PRESS [150]FIRE [150]TO [150]PLAY";:SYSTS:PRINT"[147]";
610 FORI=14592TO14599:POKEI,.:NEXT:RETURN
620 POKE52,160:POKE56,160:CLR:POKE53280,14:POKE53281,6:PRINT"[147][154]";:POKE53272,21
630 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
640 IFER=63THEN680
650 PRINT"[147]":END
680 PRINT"[147]RETURNING TO LOADSTAR...":PRINT"LOAD"CHR$(34);
690 PRINT"HELLO CONNECT"CHR$(34)",8":PRINT"RUN[145][145][145][145][145][145][145][145]":POKE631,13
700 POKE632,28:POKE633,13:POKE198,3:NEW
61000 POKE214,15:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
61130 FORI=1TO3:PRINT"                                      ":NEXT
61150 PRINT"        [208]UBLISHED ON [204][207][193][196][211][212][193][210] #59     "
61160 PRINT"      [211]UBSCRIPTIONS 1-800-831-2694    "
61170 PRINT"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
61180 PRINT"                                      "
61190 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
61200 AU$="[205][193][218][197][160][195][200][193][211][197]":POKE214,17:PRINT:PRINTSPC(20-LEN(AU$)/2)"[152]"AU$
61210 AU$="[194]Y [202]ON [205]ATTSON  ([195]) 1989":POKE214,18:PRINT
61220 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$"":RETURN